home *** CD-ROM | disk | FTP | other *** search
/ Loadstar 10 / 010.d81 / tape to disk (.txt) < prev    next >
Commodore BASIC  |  2022-08-26  |  417b  |  13 lines
  1. 4 rem**tape to disk/com-64**by l.minniti***
  2. 5 print"[147]press play on tape"
  3. 6 wait1,16,16
  4. 10 print"[147]load":print"
  5. 15 [153]"save-diskwait-on disk you want to copy"
  6. 20 [153]"?cleft$(19):f(NULL)p=1to2:?cleft$(17):nval:?"[199](34)"a$=  "[199](34)"cleft$(34)
  7. 30 print"s[193]a$,8":print"l[207]"chr$(34)"tape"chr$(34)",8"
  8. 35 print"poke198,0:run
  9. 40 [153]"";
  10. 50 [151]198,15:[129]t[178]1[164]2:[151]630[170]t,13:[130]:[151]633,19
  11. 55 [129]t[178]1[164]5:[151]633[170]t,17:[130]
  12. 60 [151]639,13:[129]t[178]1[164]2:[151]639[170]t,17:[130]:[129]t[178]1[164]4:[151]641[170]t,13:[130]:[128]
  13.